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* NOTICES * 



Japan Patent Office is not responsible for any 
damages caused by the use of this translation. 

1 This document has been translated by computer. So the translation may not reflect the original 
precisely. 

2.**** shows the word which can not be translated. 
3.1n the drawings, any words are not translated. 



CLAIMS 



[Claim(s)] 

[Claim 1] The program transformation method characterized by changing the aforementioned 
program into relational database correspondence by changing into RAW type 1 data item each 
data description entry defined by the REDEFINES phrase when the packed decimal number type 
data item is defined in the REDEFINES phrase in the program described in the COBOL language. 
[Claim 2] The program transformation method according to claim 1 characterized by not carrying 
out code conversion to the packed decimal number type data item defined in the REDEFINES 
phrase when the coding scheme from which the program of a changing agency and the program 
of a conversion place differ is adopted. 



[Translation done.] 
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DETAILED DESCRIPTION 



[Detailed Description of the Invention] 
[0001] 

[The technical field to which invention belongs] this invention relates to the method of attaining 
the increase in efficiency of conversion work in case packed decimal number type data are 
defined in the method of changing the program using data files other than the relational database 
(RDB) described in the COBOL language into the program accessed to RDB by shift of a 
database, especially the REDEFINES phrase. 
[0002] 

[Description of the Prior Art] Because of downsizing etc., when shifting relatively the program 
which was being performed on the large-sized host computer to a small personal computer (PC), 
it is not few. And a database may also be combined and a program may be changed, in case it 
shifts. For example, in the former, the system using the so-called database management system 
(DBMS) of the database by the network model based on the way of thinking that between record 
type may be associated freely, and a CODASYL (The conference on data systems language) 
method was developed one after another. However, in recent years, in order to express relations, 
such as attribute value, by the 2-dimensional tabular format, the database by the relational 
model which can assume each relation easily, and the so-called relational database (RDB) have 
been making the mainstream. Therefore, in case it downsizes also by the system built by 
CODASYL type DB, there are not few cases where it shifts to RDB. 

[0003] Moreover, at the former, there are not few cases where a spreadsheet and the COBOL 
language suitable for document creation processing are adopted as a high level language which 
describes the program which operates on a host computer. For example, the data-definition 
method in the multi-format peculiar to a COBOL language which is not in other high level 
languages called a REDEFINES phrase is prepared for the COBOL language. A REDEFINES 
phrase can be made to access by different data type (category) and merit to the same record 
storing field if even the length of the whole record which each data description entry defines has 
agreed. Furthermore, in a COBOL language, the zoned decimal type, the packed decimal number 
type, and the binary type are prepared as a numerical storing method, and the content to 
process can define numeric data by the storing method for which were suitable. 
[0004] By the way, when it is going to change into the COBOL program of RDB correspondence 
the COBOL language program which accesses CODASYL type DB, since data type called a Char 
type and a Number type is prepared, the data item of the character type defined to CODASYL 
type DB or a binary type can be easily changed into RDB. 
[0005] 

[Problem(s) to be Solved by the Invention] However, since RDB must define data type and merit 
beforehand and must form a table, it cannot use the data storage method equivalent to a 
REDEFINES phrase. Therefore, when the REDEFINES phrase was contained in the program used 
as the transitional object to PC, two or more data items which decompose each data structure 
defined by the REDEFINES phrase, and give a definition as a respectively different data item, or 
constitute each data structure needed to be collectively treated as one data item. For this 
reason, the data-definition portion (REDEFINES phrase) of the program which was operating on 
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the host computer had to be changed into RDB correspondence. 

[0006] If data type peculiar to a COBOL language called the packed decimal number type 
showing one number is especially defined by 4 bits, since the data type corresponding to a 
packed decimal number type does not exist in RDB, When packed decimal number type data are 
defined in the REDEFINES phrase It could not but store in a position which is different as data of 
an another section eye as it was shown in drawing 8 (b), though the REDEFINES phrase defined 
R1 and R2 on the host computer as shown in dr awin g 8 (a). Therefore, in this case, it had to 
change with change of a data structure to coding not only in the definition in data division but a 
procedure division, the repair accompanying the shift work of a program occurred more mostly, 
and time and effort was great. 

[0007] It is made in order that this invention may solve the above problems, and the purpose is 
in offering the program transformation method that the work which changes the program which 
accesses the existing data files other than RDB into the program which accesses RDB can be 
done efficiently. 
[0008] 

[Means for Solving the Problem] In order to attain the above purposes, the program 
transformation method concerning this invention changes the aforementioned program into 
relational database correspondence by changing into RAW type 1 data item each data description 
entry defined by the REDEFINES phrase, when the packed decimal number type data item is 
defined in the REDEFINES phrase in the program described in the COBOL language. 
[0009] Moreover, when the coding scheme from which the program of a changing agency and the 
program of a conversion place differ is adopted, code conversion is not carried out to the packed 
decimal number type data item defined in the REDEFINES phrase. 
[0010] 

[Embodiments of the Invention] Hereafter, the gestalt of suitable operation of this invention is 
explained based on a drawing. 

[001 1] Gestalt 1. drawin g 1 of operation is the block diagram having shown the gestalt of the 1 
operation of PC which enforces the program transformation method concerning this invention. 
PC1 has the program transformation processing section 8 which changes a file 6 into the RDB 
correspondence program file 7 the conversion origin (program) which stores the program 
described in the COBOL language sent from the host computer 5 by enforcing the program 
transformation method in the gestalt of this operation based on the code-conversion rule table 
2, the data structure transformation-rule table 3, and the RDB table format information file 4. 
[0012] Drawin g 2 is drawing having shown the example of the data description entry defined 
using the REDEFINES phrase among the data-defmition portions of the COBOL program of 
program transformation origin. In the COBOL language, although the packed decimal number is 
expressed with "COMP-3", packed decimal number type data are contained in the data 
structure defined by the REDEFINES phrase as shown in dra wing 2 , respectively. Each data is 
expressed with this example by the EBCDIC code although the example of the data set as the 
data structure with the REDEFINES phrase shown in drawing 2 is shown in drawing 3 . 
[0013] Next, the program transformation method which the program transformation processing 
section 8 in the gestalt of this operation enforces is explained using the flow chart shown in 
drawin g 4 . 

[0014] The program transformation processing section 8 reads the data division within a program 
from the changing agency file 6 (Step 101). In addition, the gestalt of this operation explains as a 
premise that the data definition in the exterior by the INCLUDE sentence etc. is not carried out. 
When the data definition is carried out outside, also making it applicable to conversion cannot be 
overemphasized. And the program transformation processing section 8 is changed into the data 
type in RDB from the data description definition of the head defined as the data division read 
from the changing agency file 6 at order according to the code-conversion rule set as the code- 
conversion rule table 2 (Step 102). With the gestalt of this operation, it is characterized by 
changing into a RAW type the data description definition defined by the REDEFINES phrase. This 
changed data-definition portion is written in the RDB data-definition file 9 (Step 103). 
[0015] With the gestalt of this operation, since not only the program file 6 mentioned above but 
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the data file (the following, "changing agency data file") which the program file 6 concerned 
accesses is simultaneously made applicable to conversion, a changing agency data file is read 
continuously (Step 104). In addition, when two or more changing agency data files exist, about 
each data file, the respectively same processing is repeated and is performed. Although the 
program transformation processing section 8 will change each read record data into RDB data, 
since the 8-bit Shift JIS (JIS8) code is used for PC1 in the gestalt of this operation, the data 
expressed with the EBCDIC code adopted by the host computer 5 are changed into JIS8 code. 
However, it is characterized by the data item of the packed decimal number not considering as 
the object of code conversion (Step 105,106). 

[0016] If this data-conversion processing is explained based on the example shown in drawin g 3 , 
since the data keyl "A" of a data name "REC1" shown in drawin g 3 are an alphabetic item, they 
will be changed into JIS8 code. Moreover, since the remaining data datal 1, data12, and data13 
are data of the packed decimal number, code conversion of them is not carried out. The 
correspondence before and behind this conversion is shown in drawin g 5 (a). This code- 
conversion processing will be carried out according to the code-conversion rule set as the 
code-conversion rule table 2. 

[0017] It processes similarly to the record of a data name "REC2." That is, data22 "01" of the 
data key2 of an alphabetic item "B" and a numeric item is changed into JIS8 code, respectively. 
Moreover, code conversion of the data data21 of the remaining packed decimal numbers is not 
carried out. The correspondence before and behind this conversion is shown in drawin g 5 (b). 
Thus, the data by which code conversion was carried out if needed are written in RDB (Step 
107). It is characterized by for the gestalt of this operation defining the record data which carry 
out code conversion of other data items, and consist of those data items as RAW type 1 data 
item, without carrying out code conversion of the data item of the packed decimal number among 
the record data defined by the REDEFINES phrase, and writing in RDB. A database is 
automatically changed into RDB by performing the above processing to all the records in which it 
was stored by the changing agency data file. 

[0018] The RDB data-definition file 9 generated in the gestalt of this operation is equivalent to 
an INCLUDE file, if it is based on the example shown in drawin g 5 , will be read into the RDB 
correspondence program file 8 as 9 bytes of RAW type data (host variable), and will be 
transmitted to the object REDEFINES phrase of a DBCOPY phrase. The example of the coding 
portion of the RDB correspondence program file 8 by which this RAW type data is referred to is 
shown in <lrawjngj> . 

[0019] Drawin g 7 (a) is drawing having shown the structure of the record defined by the 
REDEFINES phrase based on drawin g 8 (a) of the conventional example. With the gestalt of this 
operation, since 1 data structure defined in the REDEFINES phrase is changed as one train, the 
record of the same structure as the conventional example shown in drawin g 7 (a) as shown in 
drawing 7 (b) is generable. For this reason, even when accessing to the data defined by the 
REDEFINES phrase in the RDB correspondence program after conversion, it can be used as it is, 
without being conscious of change of the storing position of each data item which carries out the 
access etc. On the other hand, if the program transformation method in the gestalt of this 
operation is not used, it will become record structure as shown in drawin g 7 (c). That is, since a 
data storage position is not in agreement conversion before, the case where the coding portion 
accessed to the data defined by the REDEFINES phrase must be repaired occurs. 
[0020] Since the data structure in the program which suited on the host computer 5 itself has 
not changed according to the gestalt of this operation, after shifting a program to PC1, it is not 
necessary to do a data definition again. For this reason, it can be used, without changing the 
coding portion accessed to the table generated by transform processing mentioned above. Of 
course, a data-definition portion is also FILE by considering as RDB correspondence to the 
command about database accesses, such as connect from open, close, read, etc., and select. 
From SECTION to WORKING-STORAGE Although it must change into SECTION, respectively, 
since the data definition itself especially the storing position of each data, and length are not 
changed, the load concerning the part shift work is mitigable. 
[0021] 
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[Effect of the Invention] Since according to this invention it changes so that the data definition 
of the data containing two or more data items defined using the REDEFINES phrase may be 
carried out as one RAW type data, the work which changes the program which accesses the 
existing data files other than RDB into the program which accesses RDB can be done efficiently. 



[Translation done.] 
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3.1n the drawings, any words are not translated. 



DESCRIPTION OF DRAWINGS 



[Brief Description of the Drawings] 

[ Drawin g 1] It is the block diagram having shown the gestalt of the 1 operation of PC which 
enforces the program transformation method concerning this invention. 

[ Drawin g 2] It is drawing having shown the example of a definition of the REDEFINES phrase in 
the COBOL program of program transformation origin in the gestalt of this operation. 
[ Drawin g 3] It is drawing having shown the example of the data set as the data structure with 
the REDEFINES phrase shown in drawin g 2 . 

[Drawing 4] It is the flow chart which showed the program transformation method in the gestalt 
of this operation. 

[ Drawin g 5] It is drawing having shown the correspondence relation of the record before and 

behind conversion by the program transformation method in the gestalt of this operation. 

[ Drawin g 6] It is drawing having shown the important section of the program dealing with RDB 

changed by the program transformation method in the gestalt of this operation. 

[Dra win g 7] It is drawing having shown the example of the record structure before and behind 

conversion by the program transformation method in the gestalt of this operation. 

[Drawing 8] It is drawing having shown the example of the record structure before and behind 

conversion by the conventional program transformation method. 

[Description of Notations] 

1 A personal computer (PC), 2 A code-conversion rule table, 3 A data structure transformation- 
rule table, 4 A RDB table format information file, 5 A host computer, 6 A changing agency file, 7 
A RDB correspondence program file, 8 Program transformation processing section. 



[Translation done.] 
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01 REC 1. 

03 keyl PIC X 

03 data11 PIC S9(003) COMP-3. 

03 data12 PIC S9(007) COMP-3. 

03 data13 PIC S9(003) COMP-3. 
01 REC 2 REDEFINES REC1. 

03 key2 PIC X. 

03 data21 PIC S9(11> COMP-3. 

03 data22 PIC XX. 
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data22 ='01' 
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data 11 =123 
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data 13 =123 
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[me] 

(t^KSfl^l : INCLUDE?T-OU> 
06 REC PIC X(9). 
EXEC SQL VAR REC IS RAW(9) END-EXEC. 

EXEC SQL 

SELECT * 
INTO 

: REC 

MOVE REC TO REC1. 
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